home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / f2c_5_92 Folder / f2c_5_92 / libI77 / ilnw.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-05-26  |  821 b   |  64 lines  |  [TEXT/ttxt]
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "lio.h"
  4. extern char *icptr;
  5. extern char *icend;
  6. extern icilist *svic;
  7. extern int icnum;
  8. extern int (*donewrec)();
  9. extern int z_putc(), l_write();
  10.  
  11.  static int
  12. z_wSL()
  13. {
  14.     extern int z_rnew();
  15.     while(recpos < svic->icirlen)
  16.         z_putc(' ');
  17.     return z_rnew();
  18.     }
  19.  
  20.  int
  21. c_liw(a)
  22.  icilist *a;
  23. {
  24.     reading = 0;
  25.     external = 0;
  26.     formatted = 1;
  27.     putn = z_putc;
  28.     L_len = a->icirlen;
  29.     donewrec = z_wSL;
  30.     svic = a;
  31.     icnum = recpos = 0;
  32.     cursor = 0;
  33.     cf = 0;
  34.     curunit = 0;
  35.     icptr = a->iciunit;
  36.     icend = icptr + a->icirlen*a->icirnum;
  37.     elist = (cilist *)a;
  38.     }
  39.  
  40. s_wsni(a)
  41.  icilist *a;
  42. {
  43.     cilist ca;
  44.  
  45.     c_liw(a);
  46.     ca.cifmt = a->icifmt;
  47.     x_wsne(&ca);
  48.     z_wSL();
  49.     return 0;
  50.     }
  51.  
  52. integer s_wsli(a) icilist *a;
  53. {
  54.     lioproc = l_write;
  55.     c_liw(a);
  56.     return(0);
  57.     }
  58.  
  59. integer e_wsli()
  60. {
  61.     z_wSL();
  62.     return(0);
  63.     }
  64.